Option Explicit
Sub D_Sample018()
    Dim mySht As Worksheet
    Dim myFlg As Boolean
    myFlg = True
    For Each mySht In Worksheets
        If mySht.Name Like "*Sheet*" Then		'wr
            mySht.Select Replace:=myFlg
            myFlg = False
        End If
    Next
    Set mySht = Nothing						'
End Sub

